unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, turniertools, Grids, DBGrids,Unit4;

type
  TForm3 = class(TForm)
    DBGrid1: TDBGrid;
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;
  turnier:TTournament;

implementation

{$R *.dfm}

uses Unit1;

procedure TForm3.DBGrid1DblClick(Sender: TObject);
var query:string;
begin
  Form1.query1.SQL.Clear;
  turnier.id:=Form1.tournaments.FieldByName('id').AsInteger;
  turnier.name:=Form1.tournaments.FieldByName('name').ToString;
  query:=createSqlTurnierStr('id',IntToStr(turnier.id));
  Form1.query1.SQL.Add(query);
  Form1.query1.ExecSQL;
  Form1.query1.Active:=true;
  Form4.show;
end;

end.
